home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / fdlg32 / filedlg.bas < prev    next >
Encoding:
BASIC Source File  |  1995-11-06  |  2.4 KB  |  66 lines
  1. Attribute VB_Name = "Module1"
  2. '************************************************
  3. '32-Bit File Dialog APIs
  4. 'Sample project by David Warren
  5. 'MMC Software
  6. 'CompuServe: 72500,1406
  7. 'davidw@mmcsoftware.com
  8. '************************************************
  9.  
  10. Type OPENFILENAME
  11.         lStructSize As Long
  12.         hwndOwner As Long
  13.         hInstance As Long
  14.         lpstrFilter As String
  15.         lpstrCustomFilter As String
  16.         nMaxCustFilter As Long
  17.         nFilterIndex As Long
  18.         lpstrFile As String
  19.         nMaxFile As Long
  20.         lpstrFileTitle As String
  21.         nMaxFileTitle As Long
  22.         lpstrInitialDir As String
  23.         lpstrTitle As String
  24.         Flags As Long
  25.         nFileOffset As Integer
  26.         nFileExtension As Integer
  27.         lpstrDefExt As String
  28.         lCustData As Long
  29.         lpfnHook As Long
  30.         lpTemplateName As String
  31. End Type
  32.  
  33. Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  34. Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long
  35. Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
  36.  
  37. Public Const OFN_READONLY = &H1
  38. Public Const OFN_OVERWRITEPROMPT = &H2
  39. Public Const OFN_HIDEREADONLY = &H4
  40. Public Const OFN_NOCHANGEDIR = &H8
  41. Public Const OFN_SHOWHELP = &H10
  42. Public Const OFN_ENABLEHOOK = &H20
  43. Public Const OFN_ENABLETEMPLATE = &H40
  44. Public Const OFN_ENABLETEMPLATEHANDLE = &H80
  45. Public Const OFN_NOVALIDATE = &H100
  46. Public Const OFN_ALLOWMULTISELECT = &H200
  47. Public Const OFN_EXTENSIONDIFFERENT = &H400
  48. Public Const OFN_PATHMUSTEXIST = &H800
  49. Public Const OFN_FILEMUSTEXIST = &H1000
  50. Public Const OFN_CREATEPROMPT = &H2000
  51. Public Const OFN_SHAREAWARE = &H4000
  52. Public Const OFN_NOREADONLYRETURN = &H8000
  53. Public Const OFN_NOTESTFILECREATE = &H10000
  54. Public Const OFN_NONETWORKBUTTON = &H20000
  55. Public Const OFN_NOLONGNAMES = &H40000                      '  force no long names for 4.x modules
  56. Public Const OFN_EXPLORER = &H80000                         '  new look commdlg
  57. Public Const OFN_NODEREFERENCELINKS = &H100000
  58. Public Const OFN_LONGNAMES = &H200000                       '  force long names for 3.x modules
  59.  
  60. Public Const OFN_SHAREFALLTHROUGH = 2
  61. Public Const OFN_SHARENOWARN = 1
  62. Public Const OFN_SHAREWARN = 0
  63.  
  64.  
  65.  
  66.